home *** CD-ROM | disk | FTP | other *** search
/ Chip 2003 September / Chip_2003-09_cd2.bin / system / xteq / setup.exe / {app} / plugins / XQ WinXP Workgroup Crawling Only.xpl < prev    next >
Encoding:
XSetup plugin  |  2001-04-26  |  1.5 KB  |  45 lines
  1. "FILE"="Xteq Systems X-Setup Plugin 5.0"
  2. "TYPE"="6"
  3. "COUNT"="1"
  4. "UIPATH"="Appearance\Desktop\Icons\'My Network Places' Options"
  5. "NAME"="Windows XP Workgroup Crawling"
  6. "LANGUAGE"="VBScript"
  7. "TEXT 1"="Show computers near to me in My Network Places"
  8. "DESCRIPTION 1"="Specifies whether or not Windows XP will show computers that are not part of your workgroup in My Network Places."
  9. "DESCRIPTION 2"="Default is checked.  If you uncheck this, computers that are not part of your workgroup will not be displayed in My Network Places."
  10. "COMMENT 1"="Found during "reconnaissance mission" of Windows XP registry."
  11. "VERSION"="1.03"
  12. "AUTHOR"="CptSiskoX on behalf of Xteq Systems"
  13. "COPYRIGHT"="Copyright ⌐ Xteq Systems - All Rights Reserved"
  14. "CONTACTURL"="http://www.lockergnome.com/"
  15. "OSVERSION"="000001"
  16.  
  17. 'Declaration of some constants
  18. sP="HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\NetworkCrawler\Objects\WorkgroupCrawler\WorkgroupOnly"
  19.  
  20. 'Called when the Plugin is started
  21. SUB Plugin_Initialize
  22.  s=RegReadValue(sP)
  23.  if s=0 OR IsEmpty(s) then
  24.   Call SetUIElement(1,true)
  25.  end if
  26. END SUB
  27.  
  28. 'Called when the Plugin should validate the Data the user has entered
  29. SUB Plugin_CheckData(ElementIndex)
  30. END SUB
  31.  
  32. 'Called when the Plugin should apply the changes
  33. SUB Plugin_Apply(ElementIndex,ElementSubIndex)
  34.  s=GetUIElement(1)
  35.  if s=true then
  36.   Call RegWriteValue(sP,0,2)
  37.  else
  38.   Call RegWriteValue(sP,1,2)
  39.  end if
  40. END SUB
  41.  
  42. 'Called when the Plugin is about to be removed from memory
  43. SUB Plugin_Terminate
  44. END SUB
  45.